COM AT^SPBS test - Select a telephone book (including Siemens-specific books)
COM V1.0	30.11.2004	T. Kleinmann

from attglobals import *

iOldTimeOut=SetReceiveTimeout (2000)


AT^SPBS=?
WAIT FOR OK

strSuppPB = 'BD,BL,CD,CS,DC,FD,LD,MB,MC,MD,ME,MS,ON,OW,RC,RD,SD'

for i in range (1,17):
	strTemp = ExtractParameter(strSuppPB,i)
	AT^SPBS=strTemp
	WAIT FOR OK
	AT^SPBS?
	WAITFOR (1,strTemp)

SetReceiveTimeout(iOldTimeOut)

AT
WAIT FOR OK

